Option Explicit
Sub C_Sample020()
    Dim myRng As Range
    Dim myChr As Characters
    Set myRng = Range("A1")					'Nxs
    With myRng
        .Clear								'xs檺M
        .Value = "H2O"						']wr
        'ǳƨ즹
        MsgBox "ܧ@rꪺ榡"
        Set myChr = .Characters(Start:=2, Length:=1)
        myChr.Font.Subscript = True
    End With
    Set myChr = Nothing						'
    Set myRng = Nothing
End Sub
